﻿Public Class rptBaoCaoTheoLoaiNha
    Sub LoadDatasource()
    End Sub

    Private Sub rptBaoCaoTheoLoaiNha_DesignerLoaded(ByVal sender As System.Object, ByVal e As DevExpress.XtraReports.UserDesigner.DesignerLoadedEventArgs) Handles MyBase.DesignerLoaded
        Dim u As New UCBaoCao
        Dim r As New rptBaoCaoTheoLoaiNha
        r.DataSource = u.DataSource
        xrtMaHoaDon.DataBindings.Add("MAHOADON", r.DataSource, "MAHOADON")
    End Sub

    Private Sub Detail_AfterPrint(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Detail.AfterPrint

    End Sub
End Class